Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue25/tiptrix/listing6.pas

Pascal/Delphi Source File | 1997-08-18 | 283 b | 14 lines

procedure TxUpgrader.Execute;
var
  oldVersion,
  aVersion: Integer;
begin
  aVersion:=GetVersion;
  while oldVersion<>aVersion do begin
    oldVersion:=aVersion;
    aVersion:=Upgrade(aVersion);
    if aVersion<>oldVersion then
       SetVersion(aVersion);
  end;
end;